********* Table A9 *********
clear all
set more off 
capture log close
 
* main path to data
global path "~/Dropbox/Paraguay/1_data/7_replication_dataverse"
capture cd "$path"	

*tables = analysis tables
global tables "$path/tables"

* main panel
use "$path/data/main.dta", clear

xtset id year


// Generate indicator variables for years 1954 to 2007
forval year = 1954/2007 {
    generate y`year' = (year == `year')
}

// Generate the alt_1989 variable and set it to 0
generate alt_1989 = 0



set more off
eststo clear

* hectares
set more off
reghdfe tmh_ha_log ///
    y1954#c.zeigen y1955#c.zeigen y1956#c.zeigen y1957#c.zeigen y1958#c.zeigen ///
	y1959#c.zeigen y1960#c.zeigen y1961#c.zeigen y1962#c.zeigen y1963#c.zeigen ///
	y1964#c.zeigen y1965#c.zeigen y1966#c.zeigen y1967#c.zeigen y1968#c.zeigen ///
	y1969#c.zeigen y1970#c.zeigen y1971#c.zeigen y1972#c.zeigen y1973#c.zeigen ///
    y1974#c.zeigen y1975#c.zeigen y1976#c.zeigen y1977#c.zeigen y1978#c.zeigen ///
    y1979#c.zeigen y1980#c.zeigen y1981#c.zeigen y1982#c.zeigen y1983#c.zeigen ///
    y1984#c.zeigen y1985#c.zeigen y1986#c.zeigen y1987#c.zeigen y1988#c.zeigen ///
    alt_1989 ///
    y1990#c.zeigen y1991#c.zeigen y1992#c.zeigen y1993#c.zeigen y1994#c.zeigen ///
    y1995#c.zeigen y1996#c.zeigen y1997#c.zeigen y1998#c.zeigen y1999#c.zeigen ///
    y2000#c.zeigen y2001#c.zeigen y2002#c.zeigen y2003#c.zeigen y2004#c.zeigen ///
    y2005#c.zeigen y2006#c.zeigen y2007#c.zeigen ///
    zeigen [pweight=p_weights] if sample_weight == 1, absorb(year id) cluster(id) nocons
			 
eststo			 

* binary
set more off
reghdfe tmh_e ///
	y1954#c.zeigen y1955#c.zeigen y1956#c.zeigen y1957#c.zeigen y1958#c.zeigen ///
	y1959#c.zeigen y1960#c.zeigen y1961#c.zeigen y1962#c.zeigen y1963#c.zeigen ///
	y1964#c.zeigen y1965#c.zeigen y1966#c.zeigen y1967#c.zeigen y1968#c.zeigen ///
	y1969#c.zeigen y1970#c.zeigen y1971#c.zeigen y1972#c.zeigen y1973#c.zeigen ///
    y1974#c.zeigen y1975#c.zeigen y1976#c.zeigen y1977#c.zeigen y1978#c.zeigen ///
    y1979#c.zeigen y1980#c.zeigen y1981#c.zeigen y1982#c.zeigen y1983#c.zeigen ///
    y1984#c.zeigen y1985#c.zeigen y1986#c.zeigen y1987#c.zeigen y1988#c.zeigen ///
    alt_1989 ///
    y1990#c.zeigen y1991#c.zeigen y1992#c.zeigen y1993#c.zeigen y1994#c.zeigen ///
    y1995#c.zeigen y1996#c.zeigen y1997#c.zeigen y1998#c.zeigen y1999#c.zeigen ///
    y2000#c.zeigen y2001#c.zeigen y2002#c.zeigen y2003#c.zeigen y2004#c.zeigen ///
    y2005#c.zeigen y2006#c.zeigen y2007#c.zeigen ///
    zeigen [pweight=p_weights] if sample_weight == 1, absorb(year id) cluster(id) nocons
	
eststo

capture cd "$tables"
esttab est* using "tableA9.tex", replace nonumber label style(tex) ///
    cells(b(star fmt(%12.4fc)) se(par fmt(%12.4fc))) ///
    stats( N r2 , fmt( %12.0fc %12.4fc ) ///
        label("\hline Observations"  ///
          "\$R^2\$" )) ///
    keep( 1.y1971#c.zeigen 1.y1972#c.zeigen 1.y1973#c.zeigen 1.y1974#c.zeigen 1.y1975#c.zeigen ///
    1.y1976#c.zeigen 1.y1977#c.zeigen 1.y1978#c.zeigen 1.y1979#c.zeigen 1.y1980#c.zeigen ///
    1.y1981#c.zeigen 1.y1982#c.zeigen 1.y1983#c.zeigen 1.y1984#c.zeigen 1.y1985#c.zeigen ///
    1.y1986#c.zeigen 1.y1987#c.zeigen 1.y1988#c.zeigen 1.y1990#c.zeigen 1.y1991#c.zeigen ///
    1.y1992#c.zeigen 1.y1993#c.zeigen 1.y1994#c.zeigen 1.y1995#c.zeigen 1.y1996#c.zeigen ///
    1.y1997#c.zeigen 1.y1998#c.zeigen 1.y1999#c.zeigen 1.y2000#c.zeigen 1.y2001#c.zeigen ///
    1.y2002#c.zeigen 1.y2003#c.zeigen 1.y2004#c.zeigen 1.y2005#c.zeigen 1.y2006#c.zeigen ///
    1.y2007#c.zeigen) ///    
    order(1.y1971#c.zeigen 1.y1972#c.zeigen 1.y1973#c.zeigen 1.y1974#c.zeigen 1.y1975#c.zeigen ///
    1.y1976#c.zeigen 1.y1977#c.zeigen 1.y1978#c.zeigen 1.y1979#c.zeigen 1.y1980#c.zeigen ///
    1.y1981#c.zeigen 1.y1982#c.zeigen 1.y1983#c.zeigen 1.y1984#c.zeigen 1.y1985#c.zeigen ///
    1.y1986#c.zeigen 1.y1987#c.zeigen 1.y1988#c.zeigen 1.y1990#c.zeigen 1.y1991#c.zeigen ///
    1.y1992#c.zeigen 1.y1993#c.zeigen 1.y1994#c.zeigen 1.y1995#c.zeigen 1.y1996#c.zeigen ///
    1.y1997#c.zeigen 1.y1998#c.zeigen 1.y1999#c.zeigen 1.y2000#c.zeigen 1.y2001#c.zeigen ///
    1.y2002#c.zeigen 1.y2003#c.zeigen 1.y2004#c.zeigen 1.y2005#c.zeigen 1.y2006#c.zeigen ///
    1.y2007#c.zeigen ) ///
    varlabels(1.y1971#c.zeigen "Year 1971 \$\times\$ Eigenvector" 1.y1972#c.zeigen "Year 1972 \$\times\$ Eigenvector" ///
    1.y1973#c.zeigen "Year 1973 \$\times\$ Eigenvector" 1.y1974#c.zeigen "Year 1974 \$\times\$ Eigenvector" ///
    1.y1975#c.zeigen "Year 1975 \$\times\$ Eigenvector" 1.y1976#c.zeigen "Year 1976 \$\times\$ Eigenvector" ///
    1.y1977#c.zeigen "Year 1977 \$\times\$ Eigenvector" 1.y1978#c.zeigen "Year 1978 \$\times\$ Eigenvector" ///
    1.y1979#c.zeigen "Year 1979 \$\times\$ Eigenvector" 1.y1980#c.zeigen "Year 1980 \$\times\$ Eigenvector" ///
    1.y1981#c.zeigen "Year 1981 \$\times\$ Eigenvector" 1.y1982#c.zeigen "Year 1982 \$\times\$ Eigenvector" ///
    1.y1983#c.zeigen "Year 1983 \$\times\$ Eigenvector" 1.y1984#c.zeigen "Year 1984 \$\times\$ Eigenvector" ///
    1.y1985#c.zeigen "Year 1985 \$\times\$ Eigenvector" 1.y1986#c.zeigen "Year 1986 \$\times\$ Eigenvector" ///
    1.y1987#c.zeigen "Year 1987 \$\times\$ Eigenvector" 1.y1988#c.zeigen "Year 1988 \$\times\$ Eigenvector" ///
    1.y1990#c.zeigen "Year 1990 \$\times\$ Eigenvector" 1.y1991#c.zeigen "Year 1991 \$\times\$ Eigenvector" ///
    1.y1992#c.zeigen "Year 1992 \$\times\$ Eigenvector" 1.y1993#c.zeigen "Year 1993 \$\times\$ Eigenvector" ///
    1.y1994#c.zeigen "Year 1994 \$\times\$ Eigenvector" 1.y1995#c.zeigen "Year 1995 \$\times\$ Eigenvector" ///
    1.y1996#c.zeigen "Year 1996 \$\times\$ Eigenvector" 1.y1997#c.zeigen "Year 1997 \$\times\$ Eigenvector" ///
    1.y1998#c.zeigen "Year 1998 \$\times\$ Eigenvector" 1.y1999#c.zeigen "Year 1999 \$\times\$ Eigenvector" ///
    1.y2000#c.zeigen "Year 2000 \$\times\$ Eigenvector" 1.y2001#c.zeigen "Year 2001 \$\times\$ Eigenvector" ///
    1.y2002#c.zeigen "Year 2002 \$\times\$ Eigenvector" 1.y2003#c.zeigen "Year 2003 \$\times\$ Eigenvector" ///
    1.y2004#c.zeigen "Year 2004 \$\times\$ Eigenvector" 1.y2005#c.zeigen "Year 2005 \$\times\$ Eigenvector" ///
    1.y2006#c.zeigen "Year 2006 \$\times\$ Eigenvector" 1.y2007#c.zeigen "Year 2007 \$\times\$ Eigenvector") ///    
    collabels(, none) eqlabels(, none) starlevels(* 0.1 ** 0.05 *** 0.01) ///
    prehead(\begin{tabular}{l*{@M}{c}} \hline ///
        &  \multicolumn{1}{c}{Hectares (log)}  & \multicolumn{1}{c}{Land grant (binary)}  \\ ///
        & (1) & (2)   \\)  ///
    posthead(\hline ) mlabels(, none) ///
    prefoot( ) postfoot(\hline \end{tabular})
